gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\include\ProductSearchForm.asp
<% '================================================= '过程名:ShowProductTypeList '作 用:用下拉列表框显示手机厂商 '参 数:nTypeId:厂商编号 '================================================= sub ShowProductTypeList(nTypeId) %> <SELECT name = "ProductType" style = "background-color: rgb(210,232,255); font-size:9pt" ID = "Select1"> <option value = "0">全部厂商</option> <%call ProductTypeToSelect(nTypeId)%> </SELECT> <% end sub '================================================= '过程名:ProductTypeToSelect '作 用:将手机厂商添加到下拉列表框中(无修饰) '参 数:nTypeId:厂商编号 '================================================= sub ProductTypeToSelect(nTypeId) dim strSQL, rsObj dim tempi dim nID, szName if Not IsNumeric(nTypeId) then nTypeId = 0 end if strSQL = "SELECT * FROM ProductType WHERE SuperID = 0" set rsObj = conn.execute (strSQL) if (rsObj.eof or err) then Response.Write "ERr!" exit sub else do while not rsObj.eof nID = rsObj("id") szName = rsObj("name") Response.Write "<option value = "&nID if CLng(nID) = CLng(nTypeId) then Response.Write " selected" Response.Write ">" Response.Write szName&"</option>" rsObj.MoveNext loop end if end sub %> <% '================================================= '过程名:ShowSearchForm '作 用:显示查找表单 '参 数: ' myKeyword:在搜索产品文本框中显示的内容 ' nTypeId:厂商编号 '================================================= sub ShowSearchForm(myKeyword, nTypeId) %> <table width = "100%" border = "0" cellspacing = "0" cellpadding = "4" align = "center" height = "30" ID = "Table7"> <tr> <form method = "post" name = "orderSearch" action = "orderSearch.asp" ID = "Form1"> <td width = "45%" valign = "top"> 订单号 <input type = "text" size = "12" name = "orderID" onKeyUp = "checknum(orderSearch.orderID)" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Text1"> <input type = "submit" name = "Submit3" value = "订单搜索" class = "forInput" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Submit1"> </td> </form> <form name = "productSearch" method = "post" action = "product.asp" ID = "Form2"> <td width = "55%" valign = "top"> <input type = "text" name = "Keyword" size = "12" value = "<%=myKeyword%>" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Text2"> <% call ShowProductTypeList(nTypeId) %> <input type = "submit" name = "Submit4" value = "产品搜索" class = "forInput" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Submit2"> </td> </form> </tr> </table> <% end sub %>